perm filename BAD.F4[DRW,LCS] blob sn#523250 filedate 1980-07-13 generic text, type T, neo UTF8
00100		DIMENSION I(3,4000),F(512)
00200		L=3
00300		F(L)=.5
00400		N=3
00500		I(2,N)=100
00600		TYPE 1,I(2,1),I(2,2),I(2,3)
00700		I(2,N)=I(2,N)*F(L)
00800		TYPE 1,I(2,1),I(2,2),I(2,3)
00900	1	FORMAT(3I)
01000		END